home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / comm / misc / RScript_online.lha / RecentScript / Configs / AmFTP ARexx.intro < prev   
Encoding:
Text File  |  1999-04-02  |  1.7 KB  |  101 lines
  1. /* ARexx - Download script for AmFTP - Script generated by RecentScript
  2.    Miami start/online/offline support by Detlef Wojtaszkiewicz
  3.    dwojtaszkiewic@rios.de
  4.    $VER: 1.0 (31.03.99)    */
  5.  
  6. OPTIONS RESULTS
  7.  
  8. IF ~SHOW('l', "rexxsupport.library") THEN DO
  9.   IF ~ADDLIB('rexxsupport.library',0,-30,0) THEN DO
  10.     EXIT
  11.   END
  12. END
  13.  
  14. IF (~show('l','rexxreqtools.library')) then
  15.     CALL addlib('rexxreqtools.library',-2,-30,0)
  16.  
  17. CALL rtezrequest('What to do after download?',
  18.                     ,' Go _offline |Stay _tuned| _Quit ',
  19.                     ,,'rt_reqpos = reqpos_centerscr')
  20.  
  21.     IF RTRESULT == 1 THEN DO
  22.     CALL GET
  23.         CALL OFF
  24.         exit
  25.     END
  26.  
  27.   IF RTRESULT == 2 THEN DO
  28.     CALL GET
  29.         EXIT
  30.     END
  31.  
  32.   IF RTRESULT == 0 THEN DO
  33.     EXIT
  34.     END
  35.  
  36. GET:
  37. IF ~SHOW('P',MIAMI.1) THEN DO
  38.     ADDRESS COMMAND 'run >nil: Miami:Miami'
  39.     ADDRESS COMMAND 'sys:rexxc/Waitforport MIAMI.1'
  40. END
  41.  
  42. ADDRESS MIAMI.1
  43.     ISONLINE
  44.         IF ~RC THEN DO
  45.             ONLINE
  46.         END
  47.  
  48. /* Ende Miami-Starter */
  49.  
  50. oldport = ""
  51. newport = ""
  52.  
  53. DO i=1 TO 5
  54.   port = "AMFTP."i
  55.   IF SHOW(PORTS,port) = 1 THEN DO
  56.     ADDRESS value port
  57.     ISCONNECTED
  58.     connectstate = RESULT
  59.     IF connectstate = 1 THEN DO
  60.     END
  61.     ELSE DO
  62.       IF oldport = "" THEN oldport = port
  63.     END
  64.   END
  65.   ELSE DO
  66.     IF newport = "" THEN newport = port
  67.   END
  68. END
  69.  
  70. IF oldport = "" THEN DO
  71.    ADDRESS COMMAND 'run <>NIL: "%3"'
  72.    DO 3 WHILE ~SHOW(PORTS,newport)
  73.      ADDRESS COMMAND 'WaitForPort 'newport
  74.    END
  75.    IF RC = 5 THEN DO
  76.      EXIT
  77.    END
  78.    portname = newport
  79. END
  80. ELSE DO
  81.   portname = oldport
  82. END
  83.  
  84. resultport = "RSLT."portname
  85.  
  86. ADDRESS value portname
  87.  
  88. CONNECTHOST "%1"
  89.  
  90. CALL OPENPORT(resultport)
  91. WAITACTION resultport
  92. CALL WAITPKT resultport
  93.  
  94. ISCONNECTED
  95. connectstate = RESULT
  96. IF connectstate = 0 THEN DO
  97.   IF oldport = "" THEN QUIT
  98.   ELSE CLOSE
  99.   CALL CLOSEPORT resultport
  100.   EXIT
  101. END